;;QQ:67762207
[@ϵͳ]
{
#ACT
MOV A0 %USERNAME
LoadValue A1 "PlayerParam\и.INI" %A0 %A0 
#if
equal A1 ""
#ACT
GOTO @ʺ
#ELSEACT
GOTO @ʺ

[@ʺ]
#SAY
Բ,ûϢ,޷Ϊйе!\
</@>\
<˳/@exit>\

[@ʺ]
#call [ChangeMoney\Banksystem\ʱ.txt] @ʱ

[@]
#ACT
MOV A0 %USERNAME
LoadValue  D2 "PlayerParam\и˴.ini" %A0 [Ǯ] 
LoadValue  D3 "PlayerParam\и.INI" %A0 [ʼ]
LoadValue  D4 "PlayerParam\и.INI" %A0 [ʼСʱ]
LoadValue D7 "PlayerParam\и˴.ini" [] []
DEC D9 %D3
#IF
EQUAL D9 0
#ACT
goto @пʼ
#ELSEACT
MOV P1 %D9
MOV P2 %D7  
MUL P1 P2
MOV D9 %P9
MOV P1 %D2
MOV P2 1000
DIV P1 P2
MOV D2 %P9
INC D9 1000
MOV P1 %D2
MOV P2 %D9
MUL P1 P2
MOV D2 %P9
SaveValue  "PlayerParam\и˴.ini" %A0 [Ǯ] %D2
GOTO @пʼ
break


[@пʼ]
#call [ChangeMoney\Banksystem\ʱ.txt] @ʼʱ

[@ʼ]
#ACT
MOV D0 %USERGOLD
SaveValue  "PlayerParam\и.INI" %A0 [ʼ] %D9
SaveValue  "PlayerParam\и.INI" %A0 [ʼСʱ] %D8
LoadValue D7 "PlayerParam\и˴.ini" [] []
LoadValue D2 "PlayerParam\и˴.ini" %A0 [Ǯ] 
#say
{FCOLOR/10}<$output(A0)>{FCOLOR/12},Ǵеϵͳ,ȫȽķϵͳ!һȫ!\
ʲôΪ?\
˵:еϢǰСʱ.ÿΪ{FCOLOR/1}<$OUTPUT(D7)>/1000{FCOLOR/12},Ҳ˵,Ĵÿ{FCOLOR/1}<$OUTPUT(D7)>/1000{FCOLOR/12}!\
{FCOLOR/10}<$OUTPUT(D0)>:{FCOLOR/12}\
{FCOLOR/10}<$OUTPUT(D2)>:{FCOLOR/12}ڻ!\
</@>(ǰĽᱣ)\
<Ǯ/@Ǯ>\
<ȡǮ/@ȡǮ>\
<ʽ/@>\
<ϵͳ/@>\
#IF
ISADMIN 
#SAY
<Ϣ/@Ϣ>\

[@Ϣ]
#call [ChangeMoney\Banksystem\Ϣ.txt] @Ϣ


[@]
#SAY
<Ҫע:/@@עʺ>

[@@עʺ]
#ACT
mov A1 %INPUTSTR
MOV A0 %USERNAME
MOV D2 0
SaveValue  "PlayerParam\и.INI" %A0 [Ǯ] %D2
SaveValue  "PlayerParam\и.INI" %A0 %A0 %A1
SYSMSG "趨ɹ"
#call [ChangeMoney\Banksystem\ʱ.txt] @ʼʱ

[@]
#SAY
</@@޸>\

[@@޸]
#ACT
MOV A2 %INPUTSTR
mov A0 %USERNAME
loadValue A1 "PlayerParam\и.INI" %A0 %A0 
#IF
EQUAL A1 %A2
#SAY
Ҫʲô?\
<Ǯ/@Ǯ>\
<ȡǮ/@ȡǮ>\
</@ϵͳ>
#ELSESAY
ԲʺŴ!\
</@ϵͳ>

[@ȡǮ]
#SAY
Ĭ,Ҫ֪ʺŲܲ!\
<Ҫܲ/@Ҫʺ1>\
<Ҫ/@Ҫʺ1>\

[@Ǯ]
#SAY
Ĭ,Ҫ֪ʺŲܲ!\
<Ҫܲ/@Ҫʺ>\
<Ҫ/@Ҫʺ>\

[@Ҫʺ]
#ACT
MOV D2 0
SaveValue  "PlayerParam\и.INI" %A0 [Ǯ] %D2
SYSMSG "ɹ,Ҫ"
GOTO @

[@Ҫʺ]
#ACT
MOV D2 1
SaveValue  "PlayerParam\и.INI" %A0 [Ǯ] %D2
SYSMSG "ɹ,Ҫ"
GOTO @

[@Ҫʺ1]
#ACT
MOV D2 0
SaveValue  "PlayerParam\и.INI" %A0 [ȡǮ] %D2
SYSMSG "ɹ,Ҫ"
GOTO @

[@Ҫʺ1]
#ACT
MOV D2 1
SaveValue  "PlayerParam\и.INI" %A0 [ȡǮ] %D2
SYSMSG "ɹ,Ҫ"
GOTO @


[@Ǯ]
#act
MOV A0 %USERNAME
LoadValue D2 "PlayerParam\и.INI" %A0 [Ǯ] 
MOV D7 %USERGOLD
#IF
EQUAL D2  0
#SAY
</@@>\
#IF
EQUAL D2 1
#SAY
{FCOLOR/10}<$OUTPUT(D7)>{FCOLOR/12}!\
<ҪĽ/@@>\



[@@]
#ACT
MOV A4 %INPUTSTR
LoadValue A1 "PlayerParam\и.INI" %A0 %A0
MOV D7 %USERGOLD
#IF
EQUAL  A4 %A1
#SAY
{FCOLOR/10}<$OUTPUT(D7)>{FCOLOR/12}!\
1000ϲſ!
<ҪĽ/@@>\
#ELSESAY
ԲʺŴ!\
</@ϵͳ>

[@@]
#ACT 
MOV D9 %INPUTNUM
#IF
SMALL D9 1000
#ACT
SYSMSG "Ľ,"
GOTO @Ǯ
break
#IF
CHECKGOLD %D9
#ACT
MOV A0 %USERNAME
LoadValue D2 "PlayerParam\и˴.ini" %A0 [Ǯ] 
INC D2 %D9
take gold %D9
SYSMSG "Ǯɹ,<$OUTPUT(D9)>"
SaveValue "PlayerParam\и˴.ini" %A0 [Ǯ] %D2
GOTO @ϵͳ
break
#ELSESAY
㿴Լж?ûô,ôӲҪôѽ?\
</@ϵͳ>


[@ȡǮ]
#act
MOV A0 %USERNAME
LoadValue A1 "PlayerParam\и.INI" %A0 %A0
LoadValue D2 "PlayerParam\и.INI" %A0 [ȡǮ] 
LoadValue D3 "PlayerParam\и˴.ini" %A0 [Ǯ] 
#IF
EQUAL D2  0
#SAY
</@@1>\
#IF
EQUAL D2 1
#SAY
{FCOLOR/10}<$OUTPUT(D3)>{FCOLOR/12}ڻ!\
<ҪȡĽ/@@ȡ>\



[@@1]
#ACT
MOV A4 %INPUTSTR
LoadValue A1 "PlayerParam\и.INI" %A0 %A0
#IF
EQUAL  A4 %A1
#SAY
{FCOLOR/10}<$OUTPUT(D3)>{FCOLOR/12}ڻ!\
<ҪȡĽ/@@ȡ>\
#ELSESAY
Բ!\
</@>


[@@ȡ]
#ACT 
MOV A0 %USERNAME
MOV D9 %INPUTNUM
LoadValue  D2 "PlayerParam\и˴.ini" %A0 [Ǯ] 
#IF
SMALL D9 0
#ACT
SYSMSG "Ľ,"
GOTO @ȡǮ
break
#IF
!LARGE D9 %D2
#ACT
DEC D2 %D9
SaveValue  "PlayerParam\и˴.ini" %A0 [Ǯ] %D2
give gold %D9
SYSMSG "ȡǮɹ,ȡ<$OUTPUT(D9)>"
GOTO @ϵͳ
break
#elsesay
 ûôѽ!

[@]
#SAY
<빲û:/@@>

[@@]
#ACT
MOV A7 %INPUTSTR
FormatStr "FLD_CHARACTER='%s'" %A7
 ReadValueSql  "TBL_CHARACTER"  %A9  "FLD_CHARACTER"  [@ҵ]

[@ҵ()]
#ACT
MOV A6 %ARG(1)
SaveValue  "QuestDiary\ChangeMoney\Banksystem\ñ.txt" [ñ] [] %A6
#IF
!EQUAL A6 ""
#SAY
</@@>\
#ELSESAY
Բ,û\
</@ϵͳ>\


[@@]
#ACT
LoadValue  A6  "QuestDiary\ChangeMoney\Banksystem\ñ.txt" [ñ] [] 
MOV A5 %INPUTSTR
LoadValue A1 "PlayerParam\и.INI" %A6 %A6
#IF
EQUAL A1 %A5
#SAY
Ҫһַ?\
<й(Լȡ)/@>\
<й(˻ȡ)/@1>
#ELSESAY
Բ,!\
</@ϵͳ>\

[@]
#ACT
LoadValue  A6  "QuestDiary\ChangeMoney\Banksystem\ñ.txt" [ñ] []
LoadValue D2 "PlayerParam\и˴.ini" %A6 [Ǯ]
#SAY
<$OUTPUT(D2)>ڻ.\
<ҪʵĿ/@@Ŀ>\

[@@Ŀ]
#ACT
MOV A0 %USERNAME
LoadValue  A6  "QuestDiary\ChangeMoney\Banksystem\ñ.txt" [ñ] []
LoadValue D2 "PlayerParam\и˴.ini" %A6 [Ǯ]
LoadValue D4 "PlayerParam\и˴.ini" %A0 [Ǯ]
mov D3 %INPUTNUM
#IF
!LARGE D3 %D2
!SMALL D3 1
#ACT
DEC D2 %D3
INC D4 %D3
savevalue "PlayerParam\и˴.ini" %A6 [Ǯ] %D2
savevalue "PlayerParam\и˴.ini" %A0 [Ǯ] %D4
SYSMSG ",ʻ<$OUTPUT(D3)>"\
GOTO @ϵͳ
break

[@1]
#ACT
LoadValue  A6  "QuestDiary\ChangeMoney\Banksystem\ñ.txt" [ñ] []
LoadValue D2 "PlayerParam\и˴.ini" %A6 [Ǯ]
#SAY
<$OUTPUT(D2)>ڻ.\
<ҪʵĿ/@@Ŀ1>\

[@@Ŀ1]
#ACT
MOV A0 %USERNAME
LoadValue  A6  "QuestDiary\ChangeMoney\Banksystem\ñ.txt" [ñ] []
LoadValue D2 "PlayerParam\и˴.ini" %A0 [Ǯ]
LoadValue D4 "PlayerParam\и˴.ini" %A6 [Ǯ]
mov D3 %INPUTNUM
#IF
!LARGE D3 %D2
!SMALL D3 1
#ACT
DEC D2 %D3
INC D4 %D3
savevalue "PlayerParam\и˴.ini" %A6 [Ǯ] %D4
savevalue "PlayerParam\и˴.ini" %A0 [Ǯ] %D2
SYSMSG ",ʻ<$OUTPUT(D3)>"\
GOTO @ϵͳ
break
}
;;QQ:67762207